Forum: Object-Pascal / Delphi-Language
Delphi
by eddy,
12. Mär 2003
Hallo Paul Jr.,
weil mit Style=fsBold der Text nicht mehr in den Button gepaßt hat, habe ich noch ein bischen weiter gemacht. Die Parameterübergabe ist noch die erste, es sollte aber kein Problem sein, diese anzupassen.
Mit der Ermittlung der längsten String aus Captions und unter Berücksichtigung von Style habe ich die Länge der Buttons geändert.
Und weil lange Button nicht mehr...
Forum: Object-Pascal / Delphi-Language
Delphi
by eddy,
11. Mär 2003
Hallo sakura,
Hallo Paul Jr.,
habe noch ein wenig herumgebastet, jetzt kann man auch noch die Farbe und die Schriftart der Msg ändern:
//...bei einem Message Dialog die Beschriftungen der Buttons ändern
function xMessageDlg(const Msg: string; DlgType : TMsgDlgType;
Buttons : TMsgDlgButtons; Captions: array of string) : Integer;
var
Forum: Object-Pascal / Delphi-Language
Delphi
by eddy,
11. Mär 2003
Hallo sakura,
darf man denn nicht mal ein bischen Text sparen?
Hier steht doch:
begin
// Dlg erzeugen
aMsgDlg := CreateMessageDialog(Msg, DlgType, buttons);
CaptionIndex := 0;
Forum: Object-Pascal / Delphi-Language
Delphi
by eddy,
11. Mär 2003
Hallo Paul Jr.
vielen Dank für die Blumen ....
Fette Darstellung funtioniert mit:
....
// Beschriftung entsprechend Captions-array ändern
dlgButton.Caption := Captions;
Forum: Object-Pascal / Delphi-Language
Delphi
by eddy,
6. Mär 2003
Hallo design5,
getestet unter Delphi5:
//...bei einem Message Dialog die Beschriftungen der Buttons ändern
function xMessageDlg(const Msg: string; DlgType : TMsgDlgType;
Buttons : TMsgDlgButtons; Captions: array of string) : Integer;
var
aMsgDlg : TForm;