Popupmenü und links

[Cruesador]

Hi Leute, ich bins wieder, Felix Bey.
Ich mache grade 1 jahr delphi, in dem uns unser lehrer den timer, den button, das label, das panel, das editfeld, if then anweisung, for to do schleife (ein bisschen) und ... ja das wars. ich möchte aber unbedingt mehr wissen.
Ich fang mal mit dem ersten aus der liste an ... das popupmenü und das mainmenü. hab ich beides erstellt und auch schon beschriftet. im main menü hab ich unter datei ein ding was das teil (form3 in meinem fall) schließt. Wie kann ich den jetzt das so machen dass wenn man auf nen anderen button klickt, eine andere datei geöffnet wird?
und meine zweite frage: mit dem popupmenü, das hab ich auch beschriftet, wenn ich aber rechtsklick auf form3 mache dann kommt nicht sniif
hoffe ihr könnt es mir erklären ...
(ich bitte euch/dich inständig nicht zu sagen dass ich es selbst rausfinden soll. ich habe schon alles versucht und außerdem ... bin ich grade am lernen und nicht am das gelernte auszuprobieren.)
danke

[DeddyH]

Was für eine Datei willst Du denn öffnen? Und zum Popupmenü: weise es einfach Deinem Formular zu (die Eigenschaft heißt sinnigerweise "PopupMenu" ;) ).

[Cruesador]

danke für die schnelle antwort ... ABER WIE ??? wo muss man da im objektinspektor klicken ???

[DeddyH]

Siehe Anhang :mrgreen:

[Cruesador]

ok gut hab ich gemacht und jetzt ?
ich möchte außerdem eine .exe und .doc datei öffnen
mfg felix b

[DeddyH]

Such mal im Forum nach ShellExecute().

[Cruesador]

alles schon gemacht, da sind aber nur bruchstücke die ich verstehe, bitte erklärs mir :)

[Cruesador]

was muss ich sonst noch für das popupmenü machen ? das geht irgendwie nich sniif

[DeddyH]

Da ich gerade wenig Zeit habe, hier ein Zitat aus der Win32-API-Hilfe:

Zitat:

The ShellExecute function opens or prints a specified file. The file can be an executable file or a document file. See ShellExecuteEx also.

HINSTANCE ShellExecute(

HWND hwnd, // handle to parent window
LPCTSTR lpOperation, // pointer to string that specifies operation to perform
LPCTSTR lpFile, // pointer to filename or folder name string
LPCTSTR lpParameters, // pointer to string that specifies executable-file parameters
LPCTSTR lpDirectory, // pointer to string that specifies default directory
INT nShowCmd // whether file is shown when opened
);


Parameters

hwnd

Specifies a parent window. This window receives any message boxes that an application produces. For example, an application may report an error by producing a message box.

lpOperation

Pointer to a null-terminated string that specifies the operation to perform. The following operation strings are valid:

String Meaning
"open" The function opens the file specified by lpFile. The file can be an executable file or a document file. The file can be a folder to open.
"print" The function prints the file specified by lpFile. The file should be a document file. If the file is an executable file, the function opens the file, as if "open" had been specified.
"explore" The function explores the folder specified by lpFile.


The lpOperation parameter can be NULL. In that case, the function opens the file specified by lpFile.

lpFile

Pointer to a null-terminated string that specifies the file to open or print or the folder to open or explore. The function can open an executable file or a document file. The function can print a document file.

lpParameters

If lpFile specifies an executable file, lpParameters is a pointer to a null-terminated string that specifies parameters to be passed to the application.
If lpFile specifies a document file, lpParameters should be NULL.

lpDirectory

Pointer to a null-terminated string that specifies the default directory.

nShowCmd

If lpFile specifies an executable file, nShowCmd specifies how the application is to be shown when it is opened. This parameter can be one of the following values:

Value Meaning
SW_HIDE Hides the window and activates another window.
SW_MAXIMIZE Maximizes the specified window.
SW_MINIMIZE Minimizes the specified window and activates the next top-level window in the Z order.
SW_RESTORE Activates and displays the window. If the window is minimized or maximized, Windows restores it to its original size and position. An application should specify this flag when restoring a minimized window.
SW_SHOW Activates the window and displays it in its current size and position.
SW_SHOWDEFAULT Sets the show state based on the SW_ flag specified in the STARTUPINFO structure passed to the CreateProcess function by the program that started the application. An application should call ShowWindow with this flag to set the initial show state of its main window.
SW_SHOWMAXIMIZED Activates the window and displays it as a maximized window.
SW_SHOWMINIMIZED Activates the window and displays it as a minimized window.
SW_SHOWMINNOACTIVE Displays the window as a minimized window. The active window remains active.
SW_SHOWNA Displays the window in its current state. The active window remains active.
SW_SHOWNOACTIVATE Displays a window in its most recent size and position. The active window remains active.
SW_SHOWNORMAL Activates and displays a window. If the window is minimized or maximized, Windows restores it to its original size and position. An application should specify this flag when displaying the window for the first time.


If lpFile specifies a document file, nShowCmd should be zero.



Return Values

If the function succeeds, the return value is the instance handle of the application that was run, or the handle of a dynamic data exchange (DDE) server application.
If the function fails, the return value is an error value that is less than or equal to 32.

[DeddyH]

Häng das Projekt mal an, dann kann man es sich mal in Ruhe ansehen.

[Cruesador]

dankeschön !
(grummel ich wart dann bis du zeit hast, ich versteh das nich grummel, ich würde mir das gerne von nem beispielcode abgucken und dann die sachen dadrinn verändern ... es reicht schon 1 befehl !)

[DeddyH]

Delphi-Quellcode:

function Oeffnen(const Dateiname: string; aHandle: Cardinal = 0): Boolean;
begin
  Result := ShellExecute(aHandle,'open',PChar(Dateiname),nil,nil,SW_SHOWDEFAULT) > 32;
end;

Das ist aber jetzt eine Sparversion ohne Parameter etc. Du musst die Unit ShellAPI einbinden. Für aHandle übergibst Du einfach Dein Fensterhandle.

[Cruesador]

und wie komm ich auf dieses ... "funktion oeffnen" ?
auf was muss ich klicken um das zu bekommen ?
danke
guck mal ob s geht

[DeddyH]

*Seufz*

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if not Oeffnen('C:\EinDokument.doc',Handle) then
    MessageBox(Handle,'Datei konnte nicht geöffnet werden','Fehler',MB_OK or MB_ICONERROR);
end;

[Cruesador]

nein funktioniert nich , das mit dem shelll execute und wenn ich das mit dem objektinspektor mach' dann kann ich auf nichts mehr klicken und es kommt jedes mal wenn ichh klicke ein "dööt". ich muss die .exe datei dann mit dem taskmanager beenden
naja ... gibts denn da noch was anderes was auch funktioniert ?