Dolda Knappar-igen

[Jim1]

Hallå igen JS.

 

Det var väll du som hjälpte mig tidigare.

Jo, vad jag menade var att jag lägger upp en Timage. Låt oss säga att det är ett slott med en dörr. Efter det lägger jag en Tbutton på dörren i Timage. Den vill jag sedan dölja och koppla en procedur till den. När jag sedan kör programmet så ser man bara Timage. Inte knappen som ligger dold på dörren. Jag ska sedan kunna klicka på dörren (dolda knappen) så att proceduren utförs. Går det?

Jag kom på att man kan lägga en Timage och sedan en Timage i den. Men det var tidskrävande och jobbigt att sitta och rita två images.

Snälla hjälp mig Kan jag ha en dold knapp som ligger i en Timage. Och sedan kunna klicka på knappen när jag kör programmet.

 

Tack på förhand.

[J S]

>Jag ska sedan kunna klicka på dörren (dolda >knappen) så att proceduren utförs. Går det?

Nej.

Men du skulle kunna lägga ut en Tlabel och sätta transperant till true och använda Tlabelns onclick(detta är inget jag rekomenderar men det borde funka).

 

Jag skulle göra ungefär så här.

 

procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

const

//rektangel som definerar var dörren finns

DorrRect: Trect = (Left: 0; Top: 0; Right: 50; Bottom: 50);

var

MusPoint: Tpoint;

begin

MusPoint.x := x;

MusPoint.y := y;

{Om MusPoint finns i Dörr rektangel så vissa mitt meddelande}

if ptinrect(Dorrrect, MusPoint) then

Showmessage('Du klickade på dörren');

end;