Form in DLL (Text in Titelleiste zu kurz)

[Sepp]

Hallo Ringli

Zitat:

Wie caste ich denn einen Unicode-String? Versucht habe ich es bereits mit PChar(), PWideChar(), PAnsiChar() und noch ein paar anderen Varianten...

Versuch es mal so

Delphi-Quellcode:

// Aufruf des Formulars in der Mainunit des AddIns
function TDelphiConnect.ShowConfigDialog(hWndOwner: LongWord): HResult;
begin
  // Form erstellen wenn nicht vorhanden
  if frmSettings = nil then
    begin
      frmSettings := TfrmSettings.Create(Application);
    end;

  // Eigenschaften des Einstellungen-Formulars setzen
  with frmSettings do
    begin
      // Dialog modal anzeigen
      ShowModal;
    end;
end;

// Unit für das Formular
procedure TfrmSettings.FormCreate(Sender: TObject);
begin
  BorderIcons := [biSystemMenu];
  BorderStyle := bsSingle;
  Caption     := Widestring('Einstellungen'); // <-- Es macht keinen Unterschied ob ich das hier setze
                                  // oder direkt im OI, das Ergebnis ist dasselbe
  // Fensterposition setzen
  Position    := poMainFormCenter;
end;
(*
//oder mit Umwandlung nach Ansi String
// Unit für das Formular
procedure TfrmSettings.FormCreate(Sender: TObject);
Var
s : String;
begin
  BorderIcons := [biSystemMenu];
  BorderStyle := bsSingle;
  s := 'Einstellungen'; // Durch die Zuweisung wandelt Dephi im Hintergrund einen Widstring zu Ansi
  Caption     := s; // <-- Es macht keinen Unterschied ob ich das hier setze
                                  // oder direkt im OI, das Ergebnis ist dasselbe
  // Fensterposition setzen
  Position    := poMainFormCenter;
end;*)

Grüße

Sepp