In jeden Fenster gleiches Projektnamen anzeigen.

[Karstadt]

var CanClose: Boolean);
begin
CanClose := MessageDlg('Wollen Sie die Anwendung wirklich beenden?',mtCustom,[mbYes,mbNo],0) = mrYes


als Caption von dieses Fenster sehe ich Project1 Beim Form.caption steht bei mir was anderes.

Das soll irgendwie mit Application.xyz funktion gehen.. weist jemand wie das ging ?

[jfheins]

Nimm statt MessageDlg (Borland-VCL) die Funktion MessageBox (Windows-API).

Da kannst du noch einen Titel angeben, und die Buttonbeschriftungen sind in der Sprache des Benutzers.

Damit die MessageBox dieselbe Caption hat wie das Formular, bei Titel einfach schreiben:PChar (MyForm.Caption)

[Karstadt]

Application.Title := 'irgendwas'

bei messagebox kommt es immer zu HWND und PAnsiChar Fehler

[jfheins]

Zitat von Karstadt:

Application.Title := 'irgendwas'

Dann eben PChar (Application.Title )

Zitat:

bei messagebox kommt es immer zu HWND und PAnsiChar Fehler

Zeig mal den Aufruf, und den genauen Fehler, du must wahrscheinlich nur String nah PChar konvertieren ...

[Karstadt]

Kann das sein das es verchieden Versionen von MessageBox gibt? diese Funktion funktioniert beimir

Application.MessageBox('This should be on top.', 'Look', 1)
MessageBox(erwartet als ersten Paramtere ein hWND wert)

[jfheins]

Ja, das eine ist auch Application.MessageBox, und das andere die API-Funktion.

Beim ersten Parameter der API-Funktion einfach MyForm.Handle oder Application.Handle einseten,
und Stringvariablen mit PChar(Stringvar) konvertieren

[dfried]

Leute, machts doch nicht so kompliziert!
Setz einfach einmal (am besten im Mainform oder über die Projektoptionen) den Application.Title dann erscheint immer der beim MessageDlg, dann sparst du dir das gekaspere mit MessageBox und Pchar und sonstigem!

EDIT: Oder noch einfacher: Speicher dein Projekt unter einem vernünftigen Namen, standardmässig ist das nämlich der Projektname, und "Project1" ist jetzt nich so aussagekräftig...