Új hozzászólás Aktív témák

• #2149 Tomi_78 aktív tag

  Új Válasz 2024-11-05 11:40:29 #2149

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Tomi_78

  aktív tag

  Sziasztok!
  Az miért van, hogy nem akar ennél a TImage összetevőnél lefutni a Rajzolás esemény, csak ha a létrehozásakor nincs kikommentelve, ami most van?
  Tehát ez van most a procedure TForm1.FormCreate(Sender: TObject);-ben:
  mutatoteglalap:=TImage.Create(forrascsempelista);
mutatoteglalap.Parent:=forrascsempelista;
mutatoteglalap.Left:=0;
mutatoteglalap.Top:=0;
mutatoteglalap.width:=csempeszel;
mutatoteglalap.height:=csempemag;
//mutatoteglalap.Picture.Bitmap.SetSize(mutatoteglalap.width,mutatoteglalap.height);
mutatoteglalap.OnPaint:=@mtrajzolas;És ha nincs kikommentelve, egyből rajzol, anélkül meg bárhol Invalidate-ezgetem, semmi eredménye, még a ShowMessage() sem fut le benne. De nekem csak akkor kéne rajzolnia, ha kattintok, akkor is egy szaggatott vonalú négyzetet, és úgy, hogy alatta látszódjon a kép.

Új hozzászólás Aktív témák