Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Kroko1999,
23. Jan 2006
Procedure TKaFontButton.CreateWnd;
Begin
Inherited;
FButton.Left := Width - FButton.Width + 1;
FButton.Top := 1; // Top schiebt es auch dem Anzeige bereich, im Control beginnt Canvas wieder bei (0;0)
End;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Kroko1999,
23. Jan 2006
dann probiere mal in Create folgendes:
var
R: TControlClass;
begin
R := TControlClass (TButton);
TControl (FButton) := R.Create (Self);
FButton.Parent := Self;
...
end;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Kroko1999,
23. Jan 2006
Setze mal die Position des Buttons in Resize (überschreiben)!