Moin,
habe ca 15 buttons auf meinem form1 die bei "OnMouseDown" und "OnMouseUp" das Bild wechseln. für diese Kleinigkeit hat
jeder button z.b für das "OnMouseDown" sonen Code:
Delphi-Quellcode:
procedure TForm1.Memo1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var bmp: TBitmap;
begin
bmp := TBitmap.Create;
try
if imagelist2.getbitmap(6, bmp) then
image5.picture.assign(bmp)
finally
bmp.free;
end;
end;
und das kommt in jeden button... Der code für die buttons ist immer gleich, bis auf Die Werte "getbitmap(6, bmp)".
da das aber allein NUR für das Bild ist(Code für andere Dinge kommt da auch noch rein)....finde ich das das ziemlich unübersichtlich wird. Könnte man das irgendwie mit ner function oder so anders machen?
das ich z.b nur eingeben brauch "getbitmap(6);" so z.B ?
danke
gruss mario