|
unit Libs;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls, Buttons;
type
TLibDialogue = class(TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
SpeedButton1: TSpeedButton;
SpeedButton2: TSpeedButton;
SpeedButton3: TSpeedButton;
OpenDialog1: TOpenDialog;
Label5: TLabel;
Edit4: TEdit;
Label6: TLabel;
SpeedButton4: TSpeedButton;
procedure SpeedButton1Click(Sender: TObject);
procedure SpeedButton2Click(Sender: TObject);
procedure SpeedButton3Click(Sender: TObject);
procedure SpeedButton4Click(Sender: TObject);
private
{ Déclarations privées }
public
{ Déclarations publiques }
end;
var
LibDialogue: TLibDialogue;
implementation
{$R *.dfm}
procedure TLibDialogue.SpeedButton1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
edit1.Text := ExtractFilePath(OpenDialog1.FileName)
end;
procedure TLibDialogue.SpeedButton2Click(Sender: TObject);
begin
if OpenDialog1.Execute then
edit2.Text := ExtractFilePath(OpenDialog1.FileName)
end;
procedure TLibDialogue.SpeedButton3Click(Sender: TObject);
begin
if OpenDialog1.Execute then
edit3.Text := ExtractFilePath(OpenDialog1.FileName)
end;
procedure TLibDialogue.SpeedButton4Click(Sender: TObject);
begin
if OpenDialog1.Execute then
edit4.Text := ExtractFilePath(OpenDialog1.FileName)
end;
end.
¤ Dauer der Verarbeitung: 0.16 Sekunden
(vorverarbeitet)
¤
|
Haftungshinweis
Die Informationen auf dieser Webseite wurden
nach bestem Wissen sorgfältig zusammengestellt. Es wird jedoch weder Vollständigkeit, noch Richtigkeit,
noch Qualität der bereit gestellten Informationen zugesichert.
Bemerkung:
Die farbliche Syntaxdarstellung ist noch experimentell.
|
