hab das ganze grad ma in einem andere kleinen Prog getestet und es funzt super, nur wenn ichs bei mir einbaue bekomm ich immer nen Fehler während der Laufzeit
hier mal ein schnipsel source
Delphi-Quellcode:
var
dateinamen_label: Array of TLabel;
zaehler :integer = -1;
implementation
{$R *.dfm}
procedure TForm1.list_results(picture: string; text_1:string; text_2:string);
begin
zaehler := zaehler + 1;
setlength(dateinamen_label, zaehler + 2);
{...}
with dateinamen_label[zaehler + 1] do
begin
dateinamen_label[zaehler + 1] := TLabel.Create(self);
Parent := ScrollBox1;
Cursor := crHandPoint;
OnClick := p_openlink;
Tag := zaehler + 1;
Font.Color := $009A570C;
Font.Style := [fsBold, fsUnderline];
Caption := text_1;
Top := 40 * zaehler;
Left := 30;
end;
{...}
end;
procedure TForm1.p_openlink(Sender: TObject);
var
i_labelnumber: integer;
begin
if Sender is TLabel then
i_labelnumber := (Sender as TLabel).Tag;
ShellExecute(0,'open', pchar(linkliste[i_labelnumber]),nil,nil,SW_SHOWNORMAL);;
end;
aus irgendeinem Grund erstellt der das Label nicht