hoi,
Kann mir jemand sagen wie ich folgende "komponente" erstelle?
also die kompo soll nur(!) eine procedure enthalten (klar nicht viel) aber da ich noch nie ne kompo gemacht habe möchte ich das als test nehmen...
und zwar folgende procedure:
Delphi-Quellcode:
procedure GETIMG(IMGL: TImageList; a: integer; IMG: TImage);
var bmp: TBitmap;
begin
bmp := TBitmap.Create;
Try
if IMGL.GetBitmap(a, bmp) then
IMG.Picture.Assign(bmp);
finally
bmp.Free
end;
end;
aufrufen tu ich sie mit:
Delphi-Quellcode:
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
GETIMG(imagelist1, 0, image1);
end;
also könnt ich eine kompo machen die die 1. procedure enthält, so das ich für jedes form nur die kompo auf die form schieben brauch statt den code?
danke =)
gruss silent