Скачать: CL | DM;

kak zakrit formu esli v forme onclose zapisano - action:=caNone;   Найти похожие ветки 

← →
Quiii   (2005-01-11 16:54) [0]

Zdrastvujte, podskazhite kto mozet. Ja sdelal progu i tam v onclose u menja zapisana takaja komanda

procedure TfReminder.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action:=caNone;
Hide;
end;

teper" mne nade sdelat" knopku kotoraja budet okon4atel"no zakrivat" fReminder, to est" nado primenit" Action:=caFree.. no sledujushaja problema.. ja neznaju kak eto zapisat" v knopku.. emu vse nenravitsja =( on rugaetsja, govorit ERROR.. ja videmo nepravil"no komandu pishu, podskazhite pozhalujsja 4to ja dolzhna tuda zapisat"

procedure TfReminder.button1Click(Sender: TObject);
begin
....
end;

Zaranee blagodarna

---

← →
Anatoly Podgoretsky ©   (2005-01-11 17:06) [1]

Зачем же caNone, если сразу же Hide

---

← →
Quiii   (2005-01-11 17:11) [2]

potomu4to programka svara4ivaetsja v traybar =))

---

← →
Семен Сорокин ©   (2005-01-11 17:11) [3]

используйте флаги:

procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
 FHide: boolean;
public
end;


procedure TfReminder.FormCreate(Sender: TObject);
begin
 FHide:= true
end;

procedure TfReminder.button1Click(Sender: TObject);
begin
 FHide := false;
 Close
end;

procedure TfReminder.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 if FHide then
  Action := caHide
 else
  Action := caFree
end;

---

← →
kaZaNoVa ©   (2005-01-11 17:25) [4]

Halt
ExitProcess
TerminateProcess
ExitThread на выбор

---

← →
Quiii   (2005-01-11 17:26) [5]

=)) SOASIBO VSEM !!!  RABOTAET =))))

---

← →
kaZaNoVa ©   (2005-01-11 17:30) [6]

Quiii   (11.01.05 17:26) [5]
что заюзал?

---

← →
Quiii   (2005-01-11 17:37) [7]

heh.. u menja bil slishkom bol"shoj vibor =)))) zajuzala ideju Semena, tak sama napisala takzhe, tol"ko s oshibkoj =)) ispravila i vse ok =)) Spaibo e6e raz =)

---

← →
Семен Сорокин ©   (2005-01-11 17:37) [8]

> kaZaNoVa ©   (11.01.05 17:30) [6]
> Quiii   (11.01.05 17:26) [5]
> что заюзал?

заюзала :))

---

← →
kaZaNoVa ©   (2005-01-11 17:39) [9]

Quiii   (11.01.05 17:37) [7]
ты девушка, не знал, извини, если что, обращайся, моя аська 482672

---

← →
Quiii   (2005-01-11 17:41) [10]

Spasibo =)) budu imet" v vidu =)

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.025 c