popup menu og ini filer

Det giver ikke mening at sætte en    et funktionskald (OnClick) til en streng-værdi ('dav')

hov - der var jeg vist lidt hurtig!

Det giver ikke mening at sætte en TNotifyEvent (OnClick), som så skal være et funktionskald, til en streng-værdi ('dav').

a hva???????

det er fordi at rigtig så er der en sti til et program i stedet for dav. Det var bare næmmere at skrive

Det er ikke et spørgsmål om hvad rutinen hedder, dit "Dav" Kunne f.eks. være en rutine der hedder InitialiseData eller hvad, men det giver stadig ikke mening at have rutinen som streng ind i din inifil. Du kan læse navnet ind, men du skal stadig i koden skrive noget som:

var
sRutineName : string;


sRutineName := readString(blablabla...);

OnClick := sRutineName, men det vil give en kompileringsfejl.
Du kan derimod have en funktion i dit delphi program der mapper en streng ("dav") over til en rutinepointer (dav).

OnClick := GetProcedure(sRutineName);

Funktionen GetProcedure vil jeg overlade til dig selv.

/Jens

Ini filen ser rigtigt sådan her ud

[List]
Smart Ripper=c:\programmer\sr\sr.exe

Den skal så oprette knapper på den menu med alle dem der er i inifilen under LIST, og deres onclick skal jo så vare den der med shellapi hvor at den så indsætter valuen fra ini filen.

???

Følgende virker med en almindelig popupmenu
Du skal selvfølgelig lige rette navnet på din ini fil

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus,inifiles, StdCtrls,shellapi;

type
  TForm1 = class(TForm)
    PopupMenu1: TPopupMenu;
    test1: TMenuItem;
    procedure PopupMenu1Popup(Sender: TObject);
    procedure test(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;


implementation

{$R *.dfm}
procedure tform1.test(Sender: TObject);
var
inifile : Tinifile;
s,t : string;



begin

t := copy((Sender as Tmenuitem).Caption,2,length((Sender as Tmenuitem).Caption));

begin
IniFile := TIniFile.create(ExtractFilePath(ParamStr(0))+'programs.ini');
S := IniFile.ReadString('List',t,'');


Shellexecute(Handle, 'OPEN', pchar(s), nil, nil, SW_SHOW);

inifile.Free;
end


end;

procedure TForm1.PopupMenu1Popup(Sender: TObject);

var
menu:TMenuitem;
i:integer;
  IniFile : TIniFile;
  s : TStringlist;
begin
s := Tstringlist.Create;

IniFile := TIniFile.create(ExtractFilePath(ParamStr(0))+'programs.ini');
PopupMenu1.Items.Clear;
inifile.ReadSection('List',s);
for I := 0 to s.Count -1 do
begin
menu := TMenuitem.Create(PopupMenu1);
menu.Caption := s[i];
menu.OnClick := test;
PopupMenu1.Items.Add(menu);
end;
s.Free;
//menu.Free;
end;

end.

Stoney

ups !!

Du kan droppe dette


type
  TForm1 = class(TForm)
    PopupMenu1: TPopupMenu;
    test1: TMenuItem; // GLEM DENNE LINIE

Stoney

Af en eller anden grund så når jeg klikke på en af titlerne i menuen så åbner den bare den mappe hvor ini filen ligger i.

Husk at rette navnet på din ini fil + din ini fil skal ligge
i samme dir som din exe fil

Stoney

det gør de også. Den kan jo godt oprette menu punkterne, den kan bare ikke eksekvere det angivende program

Er du helt sikker på du har angivet rigtig sti til dit spil/prog ?

Eller drop en mail adr og jeg sender dig projectet.

Hvad er dit OS iøvrigt Win9x,nt,2000,XP ?

Stoney

Har XP men kan det være fordi jeg bruger det komponent der hedder toolbar2000? Der er en anden version af popup menuen (der er federe :))

???

er du væk?

Prøv lige at udskrive  værdien af s.
Den drillede også mig i går.
På en almindelige popupmenu er der en ambersand(&) før teksten.
Der for blev jeg nødt til at copy fra position 2
t := copy((Sender as TTBItem).Caption,2 PRØV AT ÆNDRE VÆRDIEN 2
-------------------------------------------------------------
t := copy((Sender as TTBItem).Caption,2,length((Sender as TTBItem).Caption));
begin
IniFile := TIniFile.create(ExtractFilePath(ParamStr(0))+'gamecontrole2.ini');
S := IniFile.ReadString('List',t,'');


Stoney

Udskriv værdien af s til en edit box, showmessage er bare blank

Stoney

hold da kæf. Nu viker det jo. Møj fedt