117
begin
panele_false();
panel_login.Visible := true;
end;
procedure TForm1.menu_helpClick(Sender: TObject);
begin
if menu_help.Caption = '?' then
begin
menu_help.Caption := '??';
Form1.ShowHint := true;
end
else
begin
menu_help.Caption := '?';
Form1.ShowHint := false;
end;
end;
end.
Kommentare zu diesen Handbüchern