[Function's & Procedure's] Wiederholender Quelltext

[mOzZzI]

Hallo,
ich habe eine kleine Frage, die lautet so:

Ich frage mittels

Delphi-Quellcode:

begin
if ptInRect( Image1.BoundsRect, pt ) then
  begin
    Image1.Canvas.Draw(0,0, FileIcon(dateiname));
    ini.WriteString('BUTTONS', '1', dateiname);
  end;
end;

ab wo der Mauszeiger sich befindet.
Wobei

Delphi-Quellcode:

var pt: TPoint
begin
  pt:=self.ScreenToClient(Mouse.CursorPos);
end;

ist.
Jetzt wollte ich das in eine Funktion oder Prozedur setzen, da ich 20 Images hab...

Ich hätte gedacht vill so:

Delphi-Quellcode:

function ZeigerImage(var Imagex:TImage):Boolean;
begin
  if ptInRect( Imagex.BoundsRect, pt ) then
  begin
   Imagex.Canvas.Draw(0,0, FileIcon(Dateiname));
   ini.WriteString('BUTTONS', Imagex, dateiname);
  end;
end;

Also das man dann Imagex mit Image1...20 ersetzen kann...


Gruß Philipp

[Angel4585]

und wo ist jetzt dein Problem?

[mOzZzI]

Also, das Problem ist das

Delphi-Quellcode:

function ZeigerImage(var Imagex:TImage):Boolean;
begin
  if ptInRect( Imagex.BoundsRect, pt ) then
  begin
   Imagex.Canvas.Draw(0,0, FileIcon(Dateiname));
   ini.WriteString('BUTTONS', Imagex, dateiname);
  end;
end;

nur ein Gedanke war, aber nicht funktioniert...

Und wie ich das dann machen kann...

Also das man dann Imagex mit Image1...20 ersetzen kann... bloß wie?

[Angel4585]

Imagex.Name vielleicht?

Du musst die Funktion mit
ZeigerImage(Image1) aufrufen. Dann hat Imagex den Namen 'Image1' den du dann speichern kannst falls du nur die '1' willst kannst du das Image davor ja wegschneiden.

[mOzZzI]

Wie baue ich das ein? *dumme Frage, sry*

[Angel4585]

was willst du eigentlich speichern? Das Bild oder den Namen der Imagekomponente?
Für den Namen:

Delphi-Quellcode:

function ZeigerImage(var Imagex:TImage):Boolean; 
begin 
  if ptInRect( Imagex.BoundsRect, pt ) then 
  begin 
   Imagex.Canvas.Draw(0,0, FileIcon(Dateiname)); 
   ini.WriteString('BUTTONS', Imagex.Name, dateiname); 
  end; 
end;

Bild weis ich leider nicht, da musst du vielleicht mal die Forensuche bemühen

[Ben]

Hallo,

die Funktion ist doch soweit richtig. Aufrufen tust du sie nun an der entsprechenden Stelle beispielsweise so:

ZeigerImage(Image14) Vielleicht teilst du uns einfach mal mit, was der Fehler ist?

Mit freundlichen Grüßen,
Ben