Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by BrunoT,
5. Sep 2005
Hallo Thomas,
tut mir ja leid, dass mein Beitrag dich nicht inspiriert hat, das so zu lösen. :mrgreen:
ich glaube. dass das nur so lauten muss:
if (FindComponent('Image'+(iString)) as TImage) is TImage then
begin
with (FindComponent('Image'+(iString)) as TImage) do
if PtInRect(Rect(0, 0, Width, Height), ScreenToClient(Mouse.CursorPos)) then
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by BrunoT,
2. Sep 2005
Hallo Thomas,
ich denke mal, das ist ein völlig falscher Ansatz,
nimm ein Image, zeichne dort die Rechtecke mit
Type
Tr=Record
x1:Integer;