Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Programmieren allgemein (https://www.delphipraxis.net/40-programmieren-allgemein/)
-   -   Combobox mit passwort versehen!?!? (https://www.delphipraxis.net/60473-combobox-mit-passwort-versehen.html)

DaddyRe 7. Jan 2006 11:44


Combobox mit passwort versehen!?!?
 
HEy leute, wiedermal eine frage ;-)

ÄÄhm kann cih irgendwei eine Combobox mit einem Passwortt versehn, sprich wenn ein bestimmter parameter eingegeben wird, kann dieser nur mithilfe des passworts den code ausgeführt werden!

Mfg daniel

SirThornberry 7. Jan 2006 11:52

Re: Combobox mit passwort versehen!?!?
 
klar, was spricht dagegen? Einfach um den Code im OnChange eine Passwortabfrage machen.

DaddyRe 7. Jan 2006 11:58

Re: Combobox mit passwort versehen!?!?
 
Aha udn das heisst? :-)
SOrry kenn mich ncoh nicht sooo arg gut aus.
Ich möchte halt nur das bei bestimmten parametern ein pw abgefragt wird!

Mfg Dnaiel

DaddyRe 7. Jan 2006 12:00

Re: Combobox mit passwort versehen!?!?
 
ABer das ist doch dan bei allen parametern?!? oder
ALso halt beid en ereignissen dann das onchange mit einer neuen form verknüpfen?

SirThornberry 7. Jan 2006 12:32

Re: Combobox mit passwort versehen!?!?
 
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) = '/Passwort' then
      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;

DaddyRe 7. Jan 2006 12:33

Re: Combobox mit passwort versehen!?!?
 
danke!!!


Alle Zeitangaben in WEZ +1. Es ist jetzt 19:46 Uhr.

Powered by vBulletin® Copyright ©2000 - 2021, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2021 by Daniel R. Wolf