Einzelnen Beitrag anzeigen

Benutzerbild von SirThornberry
SirThornberry
(Moderator)

Registriert seit: 23. Sep 2003
Ort: Bockwen
12.235 Beiträge
 
Delphi 2006 Professional
 
#5

Re: Combobox mit passwort versehen!?!?

  Alt 7. Jan 2006, 13:32
ob ein parameter gesetzt ist kannst du mit ParamStr(ParameterIndex) herauffinden. Wieviel Parameter es gibt findest mit mit ParamCount heraus.
Delphi-Quellcode:
var LCount: Integer;
    LPasswortAbfrage: Boolean
begin
  LPasswortAbfrage := False;
  for LCount := 1 to ParamCount - 1 do
    if ParamStr(LCount) = '/Passwortthen
      LPasswortAbfrage := True;
  if not(LPasswortAbfrage) or (InputBox('Passwortabfrage', 'Passwort', '') = 'deinPasswort') then
  begin
    //Quelltext was passieren soll bei Combobox änderung
  end else
    ShowMessage('Sie sind nicht berechtigt die Combobox zu ändern.');
end;
Jens
Mit Source ist es wie mit Kunst - Hauptsache der Künstler versteht's
  Mit Zitat antworten Zitat