Zamykanie formy z komunikatem

Odpowiedz Nowy wątek
2006-09-16 15:12

Rejestracja: 14 lat temu

Ostatnio: 8 lat temu

0

Witam!

Pisze w delphi 5.0, i nie mogę <ort>rozgryść </ort>pewnej rzeczy.
Mam dwie formy.
Form1 jest domyslenie ustawiony visible.true, form2.visible:=false;
Chcę aby po wciśnięciu buttona1 (na formie1), pokazała się forma2. Natomist po wciśnięciu buttona2 (na formie2), forma2 została zamknięta, a zaraz po tym pojawił się komunikat.

Byłem pewien że poniższy kod, bedzie tak działał, ale się rozczarowałem, gdyż po wciśnięciu buttona2, pokazuje się komunikat, (na tle formy2 - której nie powinno już widać), a dopiero później forma2 znika.

Czy ktoś wie jak to zrobić?

FORM1.

procedure TForm1.Button1Click(Sender: TObject);
begin
form2.ShowModal;
end;

FORM2

procedure TForm2.Button1Click(Sender: TObject);
begin
form2.close;
ShowMessage('brak okna');
end;

Pozostało 580 znaków

2006-09-16 15:19

Rejestracja: 14 lat temu

Ostatnio: 9 lat temu

0

spróbuj tak


procedure TForm1.Button1Click(Sender: TObject);
begin
form2.Show;
end;
procedure TForm2.Button1Click(Sender: TObject);
begin
form2.hide;
ShowMessage('brak okna');
end;

powinno dać radę


Daj człowiekowi cracka a jutro znowu bedzie głodny. Naucz go crackować a już nigdy nie będzie głodny.

Pozostało 580 znaków

2006-09-16 15:29

Rejestracja: 14 lat temu

Ostatnio: 8 lat temu

0

tak, działa, ale jak pokazuje się forma2, to jak klikniesz w forme1 to staje się ona aktywna(form1).
A jak użyję

form2.showmodal

to forma2 jest aktywna, dopóki jej nie zamkne.

Ten warunek musi być zastosowany:Forma2 jeżeli jest widoczna, to musi być aktywna, jeżeli jej nie ma to aktywna jest forma1 :-(

Pozostało 580 znaków

2006-09-16 18:02

Rejestracja: 14 lat temu

Ostatnio: 9 lat temu

0

procedure TForm1.Button1Click(Sender: TObject);
begin
if(form2.showModal = mrOK)then
begin
  form2.hide;
  ShowMessage('wiadomosc');
end
end;
procedure TForm2.Button1Click(Sender: TObject);
begin
form2.ModalResult := mrOK;
end;

Trzeba było od razu tak mówić. to powyżej tak działa


Daj człowiekowi cracka a jutro znowu bedzie głodny. Naucz go crackować a już nigdy nie będzie głodny.

Pozostało 580 znaków

Odpowiedz

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0