Hallo Delphi-Forum, in den weiten des Internets habe ich eine Funktion gefunden,
die es einen ermöglicht, eine Form animiert rollen zu lassen, dies geschiet
mit einem Rechtsklick auf den oberen Fensterrand.
Wie löse ich das über einen Klick (auf einen Button) aus?
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
| procedure WMCNRButtonDown(var Msg: TWMNCRButtonDown); message WM_NCRBUTTONDOWN;
procedure FoldUp;
procedure FoldDown;
procedure TfrmFold.WMCNRButtonDown(var Msg: TWMNCRButtonDown);
var
h: Integer;
begin
if (Msg.HitTest = HTCAPTION) then
begin
if(ClientHeight = 80) then
begin
for h := 80 to fOldClientHeight do
begin
ClientHeight := h+1;
end;
Application.ProcessMessages;
pnGround.Height := h;
FoldDown;
end
else
begin
fOldClientHeight := ClientHeight;
for h := fOldClientHeight downto 80 do
begin
ClientHeight := h;
pnGround.Height := h;
FoldUp;
end;
Application.ProcessMessages;
end;
end;
end; |
Danke an alle die mir helfen können und mir vllt erklären können was genau der Code macht
