Åbn fil i tekstfelt

Når programmet åbnes på den måde sættes Windows pathen til filen i ParamStr.

http://www.delphibasics.co.uk/RTL.asp?Name=ParamStr

træk og slip er så "hut jeg visker" wm_query_files .... noget du skal ind og lytte på, prøv evt at google wm_query_files / wm_query

Delphi har paramcount / paramStr(1) / paramStr(2) osv... til første spm.

Ok, det må lige forsøges, når jeg kommer hjem fra job. :)

Kan det også bruges til at vise indholdet, når programmet er åbent, og jeg trækker en tekstfil ind i det og slipper den? Eller er der en helt anden metode til det?

Ok, Martinlind, det kigger jeg på.

Jeg har prøvet ParamStr, formatc, og det virker helt fint, så du må da meget gerne oprette et svar!

martinlind>> leder stadig lidt på google efter en ordentlig forklaring på wm_query

Nå det er fundet og virker nu :)

Ved det er fundet, har ikke læst det hele, men jeg skriver i OnCreate:

var
i: integer;
begin
  for i := 1 to ParamCount do
  SynMemo1.Lines.LoadFromFile(ParamStr(i));
end;

:)

Jup, det blev også min løsning. :)

Og det med at indlæse filer, der blev dragged 'n dropped over formen:
-------------------------------------------------
uses
  (...) ShellAPI

procedure TForm1.PerformFileOpen(AFileName: string);
begin
  NeedToSave(Form1);
  Saved:=True;
  Form1.Caption:=AFileName;
  Form1.Text1.Lines.LoadFromFile(AFileName);
end;

procedure TForm1.WMDropFiles(var Msg: TWMDropFiles);
var
  CFileName: array[0..MAX_PATH] of Char;
begin
  if DragQueryFile(Msg.Drop,0,CFileName, MAX_PATH)>0 then PerformFileOpen(CFileName);
end;

procedure TForm1.FormShow(Sender: TObject);
begin
  DragAcceptFiles(Handle,True);
  if (ParamCount>0) and FileExists(ParamStr(1)) then PerformFileOpen(ParamStr(1));
end;

Det var vist også DragQueryFile / DragAcceptFiles jeg tænkte på :)

svar