Einzelnen Beitrag anzeigen

Benutzerbild von Die Muhkuh
Die Muhkuh

Registriert seit: 21. Aug 2003
7.332 Beiträge
 
Delphi 2009 Professional
 
#3

Re: ListBox und Message Box Problem

  Alt 7. Jun 2008, 11:43
Hi,

nach Deinen If-Abfragen fehlen auch die Begin und Endblöcke:

Delphi-Quellcode:
if buttonSelected = mrYes then
begin
  ShowMessage('Programm wurde entfernt.');
  Listbox1.Items.Delete(Listbox1.ItemIndex);
end;
Das ist an mehreren Stellen in Deinem Code so.

Desweiteren fehlen beim ersten Code, den Du gepostet hast, die Resourcenschutzblöcke. (try-finally).

An das aktuell ausgewählte Item der ListBox kommst Du über Delphi-Referenz durchsuchenTListBox.ItemIndex dran:

Delphi-Quellcode:
var
  Err: Integer;
begin
  if ListBox.ItemIndex > -1 then
  begin
    Err:= ShellExecute(0,
               Nil,
               PChar(ListBox.Items[ListBox.ItemIndex]),
               Pchar('-Parameter'),
               Pchar('C:\StartDir'),
               SW_NORMAL);
               if Err <= 32 then
    Showmessage(ShellExecuteErrMessage(Err));
  end;
end;
[edit] Im ersten Code ist übrigens noch ein begin zuviel [/edit]
  Mit Zitat antworten Zitat