Czesc. Mam 2 pytanka:
Jak zrobić, aby ikony Formy (BorderIcons) były nieaktywne, tzn.: chodzi mi tylko o Button krzyżyka ?
Jak podczas zamykania formy wykryć, czy została zamknięta przez polecenie np.: w Buttonie Close, czy przez krzyżyk (X) ikony na belce formy (to co tu punkt wyżej) ?
Z góry dzieki :)
Siemasz.
Ad.1 :
var
Form1: TForm1;
zamknac:boolean; // <--- od zamknięcia buttonem formy
Potem w OnClose formy:
zamknac:=false; // <- do zamykania poprzez button jest [X] nie działa
następnie:
procedure TForm1.Button1Click(Sender: TObject);
begin
zamknac:=true;
form1.Close;
end;
A na końcu wklep:
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if not zamknac then CanClose:=false;
end;
narson :]
W Object Inspectorze jest właściwość formy BorderIcons, i tam możesz sobie wybrać, co ma być, a czego ma nie być.
Ale nie da się wyszarzyc krzyżyka ... ale jest artykuł jak to zrobić...
A mógłbyś mi przybliżyć, gdzie dokładnie znajduje się ten art ? :)
na 4p (FAQ) albo na torry.net (tips)
Ale nie da się wyszarzyc krzyżyka ... ale jest artykuł jak to zrobić...
Jak to się nie da? Ja tam rąbię biSystemMenu na False i krzyżyka nie mam... Jak coś to D6+WinXP (może na innych to nie działa?)
A mi niechodzi, żeby krzyżyka niebyło, tylko o to, żeby był nieaktywny, bo ja wezme na False, to nadodatek, że NIE MA krzyżyka, to NIE MA jeszcze ikonki formy :/
EnableMenuItem(GetSystemMenu(Handle, False), SC_CLOSE, MF_BYCOMMAND or MF_DISABLED);
EnableMenuItem(GetSystemMenu(Handle, False), SC_CLOSE, MF_BYCOMMAND or MF_DISABLED);
Dziękuję, o to właśnie mi chodziło [browar]