Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by DeddyH,
12. Dez 2012
ClientRect gibt es ab TControl. Oder ist das am Ende eine Firemonkey-Anwendung? Da könnte es natürlich sein, dass es eine solche Property nicht gibt, das kann ich aber mangels Firemonkey nicht sagen.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by DeddyH,
12. Dez 2012
Oder etwas kürzer (ungetestet):
var
IsInside: Boolean;
procedure TForm2.Panel1MouseEnter(Sender: TObject);
begin
IsInside := true;
end;
procedure TForm2.Panel1MouseLeave(Sender: TObject);
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by DeddyH,
12. Dez 2012
Du ermittelst den Parent des Controls. Ist das Dein Panel oder ein Formular, weißt Du ja schon Bescheid, ansonsten ermittelst Du den Parent des Parents und vergleichst wieder, und zwar solange, bis er nil, ein Formular oder eben Dein Panel ist.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by DeddyH,
11. Dez 2012
Nur so ein Gedanke: im OnMouseLeave das Control unter dem Mauszeiger ermitteln und (ggf. rekursiv) dessen Parent untersuchen. Ist das irgendwann das Panel selbst, dann ignorieren.