procedure über Button starten

[Jakane]

Guten Tag,

normalerweise fand ich bisher alles was ich brauchte für mein Programm, nur mein jetztiger Wunsch ist irgendwie so einfach das ich dafür keine Lösung fand

In meinem Program habe ich ein 'TFileNameEdit' und ich habe einen Button 'Neu'
Wenn Neu geklickt wird und kein Datenpfad im Textfeld steht, geht bisher die Meldung auf 'Bitte Pfad eingeben'
Jetzt will ich das nicht mehr haben, deswegen rauskommentiert, sondern, wenn eben kein Datenpfad dasteht, soll er das Tfne öffnen, als wenn ich auf das Symbol geklickt hätte

Code: Alles auswählen

procedure fmKaiko_01.btnNeuClick(Sender: TObject);
begin                                 
if (txtDatenpfad.Text = '')
then
  Begin                                    
//    showMessage('Bitte Pfad eingeben');     
  end
  else                                  
  Begin                                   
 ...
  end;
end;
 
procedure fmKaiko_01.fneDatenpfadChange(Sender: TObject);
begin
txtHTMLFLaden.Text:=fneHTMLFLaden.Text;
end;

Ich danke jetzt schon für die schnellen Antworter und für die Hilfe allgemein

PS: gefundene Schreibfehler bitte behalten

[theo]

Ruf doch einfach die Prozedur auf:

btnNeuClick(self);

[m.fuchs]

Es gibt im TFileNameEdit die Prozedur DoButtonClick mit der man das Anzeigen des Dialogs auslösen kann. Leider ist diese aber protected. Du müsstest die also eine eigene Klasse von TFileNameEdit ableiten in der diese Prozedur als public überschrieben wird.

[Jakane]

Ruf doch einfach die Prozedur auf:
btnNeuClick(self);

Die Hilfestellung hilft mir bei einem anderen Problem, danke
Aber...
wenn ich das mit meine Tfne verbinde, sagt der natürlich 'Datenpfad existiert nicht'
ich möchte ansich ja nicht das aufrufen was passiert WENN ich über Tfne den Pfad vorgegeben habe, sondern
das der mir Tfne öffnet damit ich einen Pfad eingeben kann, und dann die Prozedur die darauf folgt

Es gibt im TFileNameEdit die Prozedur DoButtonClick mit der man das Anzeigen des Dialogs auslösen kann. Leider ist diese aber protected. Du müsstest die also eine eigene Klasse von TFileNameEdit ableiten in der diese Prozedur als public überschrieben wird.

wie mach ich das ableiten?

[m.fuchs]

wie mach ich das ableiten?

Das ist noch relativ einfach:

Code: Alles auswählen

type
  TMyFileNameEdit = class(TFileNameEdit)
    public
      procedure DoButtonClick (Sender: TObject); override;
  end;

Und dann im implementation Bereich:

Code: Alles auswählen

procedure TMyFileNameEdit.DoButtonClick(Sender: TObject);
begin
  inherited DoButtonClick(Sender);
end;

Jetzt wird es etwas komplizierter: Entweder du registrierst dein neues Control, so dass es in der Komponentenpalette zu finden ist. Dann kannst du das alte TFileNameEdit einfach austauschen. Allerdings weiß ich nicht wie das geht (aber sicher ein paar andere Spezialisten hier). Oder du löscht das Control von deinem Form und erzeugst ein neues im OnCreate per Quellcode. Dann kannst du dir die Registriererei ersparen.
Nicht vergessen im OnDestroy das wieder zu zerstören!

[theo]

Ah sorry. Nächstes Mal vllt. statt "Tfne" das Wort ausschreiben, dann wird's klarer.

Hackmässig so:

Code: Alles auswählen

type
  TMyFNE=class(TFileNameEdit)
    public
     procedure DoButtonClick (Sender: TObject); override;
  end;
 
implementation
 
{ TMyFNE }
 
procedure TMyFNE.DoButtonClick(Sender: TObject);
begin
  inherited DoButtonClick(Sender);
end;
 
 
{ TForm1 }
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  TMyFNE(FileNameEdit1).DoButtonClick(self);
end;

Das hat den Vorteil, dass du die Komponente nicht installieren musst.

[m.fuchs]

Code: Alles auswählen

TMyFNE(FileNameEdit1).DoButtonClick(self);

Äh ja, an einen Cast hab ich gar nicht gedacht.

[Jakane]

geil es funktioniert!!

bin zwar 3mal gestolpert, aber das macht ja nix

Ich danke herzlich für die schnelle Hilfe

[Jakane]

Hab ein neues kleines Problem mit meine 'FileNameEdit'

1. Datei ist vorhanden = wird geladen
2. Datei muss erstellt werden = muss auf Richtigkeit prüfen

wir sagt ich dem FNE jetzt "wenn 'Datei erstellt' dann ..."

[m.fuchs]

wir sagt ich dem FNE jetzt "wenn 'Datei erstellt' dann ..."

SysUtils.FileExists(FileNameEdit1.FileName) liefert TRUE zurück wenn die Datei bereits existiert.

hth
Micha

[Jakane]

vielen dank

[Socke]

SysUtils.FileExists(FileNameEdit1.FileName) liefert TRUE zurück wenn die Datei bereits existiert.

bitte durch

Code: Alles auswählen

FileUtil.FileExistsUTF8(FileNameEdit1.FileName)

ersetzen. RTL- und LCL-Zeichensatz sind nicht zwingenderweise gleich oder überschneiden sich überhaupt.

[Jakane]

Die Zeichensätze kenn ich nicht, aber "zum glück" lag der Fehler auch woanders

[Socke]

Die Zeichensätze kenn ich nicht

Ich will ja nur den richtigen Umgang mit den Zeichensätzen fördern. Was wo verwendet wird, ist eigentliche ganz einfach:

• LCL UTF-8 in allen Widgetsets
• RTL Systemzeichensatz (Byte-Folge, kann also ein Single-Byte-Zeichensatz wie CP-1252 (Windows-Westeuropäisch), ANSI oder auch UTF-8 sein)
• alles andere entweder zeichensatzunabhängig (da nicht auf (System-)Bibliotheken zugegriffen wird)
• externe Bibltiotheken siehe deren Dokumentation

[Jakane]

SysUtils.FileExists(FileNameEdit1.FileName) liefert TRUE zurück wenn die Datei bereits existiert.

Dieses SysUtils find ich langsam immer besser xD