Hi,
Ich habe Glscene in D2005PE per
Package/Komponente ... eingebunden, der GlSceneEditor (ToolWin) verdeckt nun immer die Delphi
IDE.
Um das zu verhindern möchte ich ein Minimize Btn einbauen.
(1) Wie bekommt man einen Button (z.B. SpeedBtn) in die Caption einer Form?
(2) Wollte das die Form autom. aufklappt. Bei meiner Lösung flackert die Form wenn ich über die Buttons oder Panels usw. mit der Maus "surfe" ?
Delphi-Quellcode:
...
public
{ Public-Deklarationen }
Procedure CMMouseEnter(var Message: TMessage); message CM_MOUSEENTER;
Procedure CMMouseLeave(var Message: TMessage); message CM_MOUSELEAVE;
end;
...
procedure TForm1.CMMouseEnter(var Message: TMessage);
begin
if form1.Height <> 260 then form1.Height := 260;
end;
procedure TForm1.CMMouseLeave(var Message: TMessage);
begin
if form1.Height <> 1 then form1.Height := 1;
end;
