Dialog ausblenden

[marabu]

SpeedButton ist eine sehr alte Komponente, quasi der Vorläufer des ToolButton. Du verwendest sie zum Beenden eines modalen Dialogs? Das ist zumindest originell.

Selbstverständlich kannst du die Eigenschaft ModalResult einer Form auch im OnClick-Ereignis eines SpeedButtons oder wo immer du willst setzen. Wenn es bei dir nicht funktioniert hat, dann hattest du zu dem Zeitpunkt vielleicht den Login-Dialog noch als MainForm festgelegt und die wird nicht modal angezeigt.

marabu

[Pump3r]

direkt verwenden tu ich ihn nicht zum beenden.
er dient dazu eine verbindung zum server aufzubauen.
der löst dann einen timer aus und der sendet dann was an den server.
wenn der client eine antwort bekommt, das das passwort etc u. usw stimmt,
soll der dialog schließen und eben der maindialog kommen.

:>

Delphi-Quellcode:

program Client;

uses
  Forms,
  Login in 'Login.pas' {Form1},
  clientC in 'clientC.pas' {Form2};

{$R *.res}

//begin

begin
  with TForm1.Create(nil) do
  begin
    if (ShowModal <> mrOK)
      then Halt
      else Free;
  end;
  Application.Initialize;
  //Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TForm2, Form2);
  Application.Run;
end.

er sagt immer undefinierter bezeichner

gruß chris

[marabu]

Zitat:

Zitat von marabu

Die ModalResult-Konstanten sind in der Unit Controls deklariert - einfach über USES einbinden.

Du hast die unit Controls ja immer noch nicht eingebunden:

Delphi-Quellcode:

uses
  Forms,
  Controls, // <<-- hier lebt mrOK
  Login in 'Login.pas' {Form1},
  clientC in 'clientC.pas' {Form2};

marabu

[Pump3r]

hehe, ok :>
dankeschön

[Pump3r]

hmm kann sichs vllt. doch mal einer nochmal anschauen?
hab immer noch ein problem.