Jau... Klasse..
Das funzt perfekt
Lass mir den Code noch durch den Kopf gehen,
denn ehrlichgesagt vesteh ichs noch nicht so ganz
aber trotzdem haut das Ganze hin
Delphi-Quellcode:
procedure TForm1.TabSheet6MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if TabSheet6.ControlAtPos(TabSheet6.ScreenToClient(mouse.CursorPos), true, true)= Groupbox1 then
begin
Label36.Visible:=True;
Label36.BringToFront;
Timer2.Enabled:=True;
end;
if TabSheet6.ControlAtPos(TabSheet6.ScreenToClient(mouse.CursorPos), true, true)= Groupbox3 then
begin
Label36.Visible:=True;
Label36.BringToFront;
Timer2.Enabled:=True;
end;
if TabSheet6.ControlAtPos(TabSheet6.ScreenToClient(mouse.CursorPos), true, true)= Groupbox4 then
begin
Label36.Visible:=True;
Label36.BringToFront;
Timer2.Enabled:=True;
end;
end;
Problem gelöst..
Dank an bitsetter und alle anderen!!
Grüsse
PinkFloydFan aus SR!!
Lasst euch viel und vor allen Dingen was Schönes schenken...