| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

kak zakrit' formu esli v forme onclose zapisano - action:=caNone; [D7, WinXP]

Quiii ©   (2005-01-11 16:54:00) 

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

---

Quiii   (2005-01-11 17:41:00) [1]

Spasibo =)) budu imet' v vidu =)

---

kaZaNoVa   (2005-01-11 17:39:00) [2]

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

---

Quiii   (2005-01-11 17:37:00) [3]

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:00) [4]

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

заюзала :))

---

kaZaNoVa   (2005-01-11 17:30:00) [5]

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

---

Quiii   (2005-01-11 17:26:00) [6]

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

---

kaZaNoVa   (2005-01-11 17:25:00) [7]

Halt
ExitProcess
TerminateProcess
ExitThreadна выбор

---

Quiii   (2005-01-11 17:11:00) [8]

potomu4to programka svara4ivaetsja v traybar =))

---

Семен Сорокин   (2005-01-11 17:11:00) [9]

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

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;

---

Anatoly Podgoretsky   (2005-01-11 17:06:00) [10]

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

---

Наверх