Also ich habe folgendes zusammengeschustert:
Delphi-Quellcode:
procedure TMenuButton.WMLButtonDown(var Msg: TMessage);
begin
MouseDown;
end;
procedure TMenuButton.WMLButtonUp(var Msg: TMessage);
begin
MouseUp;
end;
procedure TMenuButton.MouseDown;
begin
if (csDesigning in ComponentState) = False then
begin
Clicked := True;
Repaint;
end;
end;
procedure TMenuButton.MouseUp;
begin
if (csDesigning in ComponentState) = False then
begin
Clicked := False;
Repaint;
end;
end;
So, aber nun führt das dazu, das in meinem Programm jeder Klick an meinen MenuButton geht. Dh wenn ich zB auf das X der Form klicke, dann wird der Button geklickt!
Wie verhinder ich das, bzw was hab ich falsch gemacht und was muss ich ändern?
Edit: Haeh? Nun is das Problem plötzlich weg...dabei hab ich daran eig nix geändert!
Nagut, Problem gelöst wies aussieht, sry ^^
Edit2: Nun gehts plötzlich wieder nichmehr! ?!?! wasn da los nun bin ich verwirrt!
Also tritt irgendwie nur manchmal auf...