Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by _frank_,
3. Jul 2008
dann bau dir das event dazu :) ich würde ne klase ableiten, SetBounds überschreiben, darin inherited (also den code der Vorlageklasse) aufrufen und danach das event aufrufen, wenns definiert ist.
TMyShape=class(TShape)
private
fOnResize:TNotifyEvent;
public
procedure Setbounds(ALeft, ATop, AWidth, AHeight: Integer); override;
published
property onResize:TNotifyEvent...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by _frank_,
3. Jul 2008
if (Button=mbLeft) and (sender is TImage) then
begin
ReleaseCapture;
(sender as TImage).Parent.Perform(WM_NCLBUTTONDOWN,HTcaption,0);
end;
mit dem vergrößern ist das nicht ganz so einfach, dazu gibt es aber z.b. TSizeCtrl von www.angusj.com/delphi oder du implementierst es selbst...auch hier ist evtl ein blick in die SelImage-Klasse nicht verkehrt.
ein anderer...