Forum: Sonstige Fragen zu Delphi
Delphi
by thomasvonmuenster1,
18. Mai 2004
Ja das geht auch gut!Ist die feinere Version.
Danke habe ich auch übernommen!
Forum: Sonstige Fragen zu Delphi
Delphi
by thomasvonmuenster1,
18. Mai 2004
Ich haben fertig: Vorher im Form IBTable1.DisableControls;
procedure TForm1.DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);
begin
if Not (Button IN ) then
begin
if MessageDlg('Änderungen der Tabelle ?', mtWarning, , 0) = mrYes then
begin
IBTable1.EnableControls;
end;
end;
Forum: Sonstige Fragen zu Delphi
Delphi
by thomasvonmuenster1,
18. Mai 2004
Ein Problem weniger.
Aber er macht immer noch erst die Aktion in der Tabelle bevor er mich fragt.
Jetzt brauche ich die Case nicht mehr oder?
procedure TForm1.DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);
var
BtnName: string;
begin
case Button of
nbFirst : BtnName := 'First';
nbPrior : BtnName := 'Prior';
Forum: Sonstige Fragen zu Delphi
Delphi
by thomasvonmuenster1,
18. Mai 2004
Ich habe jetzt die Message erweitert auf ein OK und NO Button.Siehe unten!
Kann man jetzt schreiben if mbNO click dann abruch table.edit?
Kann überhaupt auf ein TMsgDlgButtons (Typen) zugreifen?
MessageDlg(BtnName + ' ?', mtInformation, , 0);
Forum: Sonstige Fragen zu Delphi
Delphi
by thomasvonmuenster1,
17. Mai 2004
Ja das hat er gemacht. Danke!
Wenn ich das ganze ist weiter verwende und ein Ja oder Nein feld haben will.
Muß ich da ein neues form aufmachen mit zwei buttons und die dann verknüpfen oder
Geht das auch mit einen Komponenten Message?
Forum: Sonstige Fragen zu Delphi
Delphi
by thomasvonmuenster1,
17. Mai 2004
Er soll die Message bringen wenn ich nbInsert bis nbRefresh drücke!
Bei den anderen soll er keine Message bringen und einfach die aktion ausführen.
Kann man das auch noch begrenzen mit ja oder nein?
Weil momentan macht er je beide aktionen Messeage und die aktion des dbnavigation.
Forum: Sonstige Fragen zu Delphi
Delphi
by thomasvonmuenster1,
17. Mai 2004
Er soll mir ab Insert erst die Message bringen.
if (Button = nbInsert or nbDelete or nbEdit....)
Message open ???
procedure TForm1.DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);
var
BtnName: string;
begin
case Button of
nbFirst : BtnName := 'First';