データベースに接続した後、「使用可能な」フォームのリストからフォームを（メインフォームとして）選択することは可能ですか？3つの「使用可能な」フォームを持つデータモジュールがあります。当面はメインフォームはありません。データモジュールが最初に作成されます。ここで、ユーザーがログインしているデータベースに応じてフォームを選択し、メインフォームにします。これはどのように行うことができますか？
メインフォームは、への呼び出しによって作成された最初のフォームと見なされますApplication.CreateForm。したがって、選択ロジックを.dprファイルコードに追加してから、を呼び出しApplication.CreateFormて、ユーザーが選択したフォームを作成します。
// .dpr code
begin
Application.Initialize;
CreateMainForm;
Application.Run;
end.
ここでCreateMainFormは、が提供され、ユーザーフォームの選択を実装します。次のようになります。
procedure CreateMainForm;
var
Form: TForm;
FormClass: TFormClass;
begin
FormClass := ChooseMainFormClass;
Application.CreateForm(FormClass, Form);
end;
繰り返しChooseMainFormClassますが、あなたによって提供されます。
この記事はインターネットから収集されたものであり、転載の際にはソースを示してください。
侵害の場合は、連絡してください[email protected]
コメントを追加