Kép-kattintás hiba

Kép-kattintás hiba
2006-06-13T18:32:06+02:00
2006-06-13T21:03:46+02:00
2022-10-31T06:25:42+01:00
zerocool
Sziasztok! Van egy képem. Van is egy kódom hozzá, de nem müködik. a kép egy bejelentkezés gombot szimulál, olyan mint az msn-nek a bejelentkezési gombja. Kivágtam az msn bejelentkezés gombot paintban, és beraktam. Ez oké, de nem müködik ugy mint egy gomb, hogy változókat rakok oda meg akármit. Itt a kód.
procedure TForm1.Image1Click(Sender: TObject); var a,b: string; begin a:=Edit1.Text; b:=Edit2.Text; Image1.Picture.LoadFromFile('C:\pictures\proba.bmp'); Label6.Caption:=' Bejelentkezés...' If a:='zerocool' and b:='jelszavam' then Application. Terminate; end;

De természetesen több hibát ir ki Viszont ha ezt egy gombbal csinálom meg, akkor ez tökéletes. Amúgy az a LoadFromfile az az ott, hogyha rákattintok, akkor bejjebb ugrik a kép Vagyis egy másik képre cseréli magát. Valakinek valami ötlete? Esetleg hogy legyen egy gomb, ami láthatatlan (Visible:=False;) és ha rákattintok a képre, akkor meghívja a gombot?

tudnátok segíteni?

Köszönöm előre is.
Mutasd a teljes hozzászólást!
if (a = 'na') and (b = 'fa') then ... // sőt, felesleges kirakni változóba if (Edit1.Text = 'na') and (Edit2.Text = 'fa') then ...

Ua a helyzet az imageclicknél. Máskor rögtön írd bele a hibaüzenetet, a valami hiba 0 (azaz nulla) tartalmú információ...
Mutasd a teljes hozzászólást!

Tetszett amit olvastál? Szeretnél a jövőben is értesülni a hasonló érdekességekről?
abcd