Main Menu y Botones

[feliz-58]

No tengo ni idea de como, no soy muy experto,así que expresen sus teorías.

Me serían de gran ayuda.

//gracias amigos.

[[Caral]]

Hola
Un ejemplo muy sencillo:
Digamos que tienes un mainmenu en este tienes dos caption.
Digamos que son: uno y dos.
Pones una variable global en donde esta el tform aqui:

Código Delphi [-]
var
  Form1: TForm1;
   dato: String;
implementation

La variable dato tendra el dato (perdona la redundancia) de lo que necesitas, ahora ponemos en cado menu esto:

Código Delphi [-]
procedure TForm1.unoClick(Sender: TObject);
begin
   dato := 'C:/';
end;

procedure TForm1.otro1Click(Sender: TObject);
begin
 dato := 'D:/';
end;

end.

Ahora presionaremos los botones con tu codigo pero con la variable:
boton 1

Código Delphi [-]
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
ShellExecute (Handle, 'open', +dato+'prueba1.txt', nil, nil, SW_SHOWNORMAL);
end;

boton 2

Código Delphi [-]
procedure TForm1.BitBtn2Click(Sender: TObject);
begin
ShellExecute (Handle, 'open', +dato+'prueba2.txt', nil, nil, SW_SHOWNORMAL);
end;

Saludos

[feliz-58]

Ok amigo, voy a probar, si me funciona te lo hago saber,muchas gracias.

//Saludos

[[Caral]]

Hola
Perdona la variable tiene que ser Pchar, asi:

Código Delphi [-]
var
  Form1: TForm1;
   dato: PChar;
implementation

Y usarlo asi:

Código Delphi [-]
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
ShellExecute (Handle, 'open', PChar(dato+'prueba1.txt'), ' ', ' ', SW_SHOWNORMAL);
end;


procedure TForm1.BitBtn2Click(Sender: TObject);
begin
ShellExecute (Handle, 'open', PChar(dato+'prueba2.txt'), ' ', ' ', SW_SHOWNORMAL);
end;

Saludos

[feliz-58]

Gracias, Funciono Perfectamente...

Estaba Analizando el anterior y me daba error y ya hiba a notificarte y me llego tu correo jaja...

Fue de mucha ayuda, Gracias amigo.

//Saludos

[[Caral]]

Hola

Saludos

[Gerson12]

hola bueno espero esto tambien te pueda ayudar
puedes poner en un edit la direcion de el archivo bueno es algo muy simple pero ahora no tengo puesto el delphi para ver si te puedo ayudar
ShellExecute (Handle, 'open', Edit1.text, nil, nil, SW_SHOWNORMAL);