MessageDlg

arcitC|Crash · Beiträge: 88 D4 weiter weiß ich net

Ich möchte gerne eine Benutzerdefinierte MessageDlg-Box machen. Dazu gibt es eine edit1-komponente und noch einige RadioButtons, wo man einstellen kann, welcher Typ(Confirmation, Information...) und welcher mbButtons angezeigt werden solen.

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

var
  Form1: TForm1;
  typ, btn: string;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
  If radioButton1.checked = true then
    typ := 'mtConfirmation';
  If radioButton2.checked = true then
    typ := 'mtError';
  messageDlg(edit1.text, typ, [mbYes, mbNo], 0);
end;

end.

Allerdings kommt dann immer der Fehler: Inkompatible Typen: 'TMsgDlgType' und 'String'

Moderiert von UGrohne: Code- durch Delphi-Tags ersetzt.

Ehemaliges Mitglied Erhaltene Danke: 1

Lass die Hochkommata mal weg.

ScorpionKing · Beiträge: 1150 Win XP

genau!
luckie hat vollkommen recht.
alles was in hochkommata steht wird als string benutzt:

markieren

Delphi-Quelltext

1:	str := 'Hallo!';

aber da mt_confir.... eine konstante ist, kann kein string das ersetzen!

ScorpionKing

Moderiert von UGrohne: Code- durch Delphi-Tags ersetzt.

_________________
Aus dem Urlaub zurück!

Maweki · Beiträge: 197 Ubuntu Linux Lazarus

wenn es is eine Variable soll, sollte aber der Variablentyp auch TMsgDlgType sein...

ScorpionKing · Beiträge: 1150 Win XP

Genau!

_________________
Aus dem Urlaub zurück!

arcitC|Crash · Beiträge: 88 D4 weiter weiß ich net

Ok, thx schonmal, aber
1. was ist eine konstante? und
2. Was ist ein Variablentyp? Vielleicht "var irgendwas: string;" <------string = Variablentyp??

Maweki · Beiträge: 197 Ubuntu Linux Lazarus

1. Eine Konstante ist eine Variable, deren Wert man nicht veraendern kann. Im Grunde genommen...

2. Ja, genau das. Anstatt String halt das, was erwartet wird...

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:

var  
  Form1: TForm1;  
  btn: string;  

 
implementation  

 
{$R *.DFM}  

 
procedure TForm1.Button1Click(Sender: TObject);  
var
  typ: TMsgDlgType;
begin  
  If radioButton1.checked = true then  
    typ := mtConfirmation;  
  If radioButton2.checked = true then  
    typ := mtError;  
  messageDlg(edit1.text, typ, [mbYes, mbNo], 0);  
end;  

 
end.

ich denke, jetzt sollte es funktionieren. Aber da bekommste keine garantie drauf, da ich grade nich testen kann...

arcitC|Crash · Beiträge: 88 D4 weiter weiß ich net

Ja thx! Ist mir auch grade aufgefallen, dass ich da TMsgDlgType hinter schreiben muss. Klappt hevorragend! Danke!

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme