Delphi-PRAXiS - Einzelnen Beitrag anzeigen - Delphi 512 TImages

**guidok**

Delphi-Quellcode:

			with sender as TImage do

begin

  Picture := NeuesBild.Picture;

end;

oder besser

Delphi-Quellcode:

			var 

  Image: TImage; 

begin 

   Image := Sender as TImage; 

   Image.Picture := NeuesBild.Picture;

guidok Registriert seit: 28. Jun 2007 417 Beiträge	#2 Re: 512 TImages - 1 OnClick Event 21. Okt 2008, 14:05 markieren Delphi-Quellcode: with sender as TImage do begin Picture := NeuesBild.Picture; end; oder besser markieren Delphi-Quellcode: var Image: TImage; begin Image := Sender as TImage; Image.Picture := NeuesBild.Picture;
	Zitat