Einzelnen Beitrag anzeigen

Benutzerbild von Piro
Piro

Registriert seit: 14. Jul 2003
Ort: Flintbek
810 Beiträge
 
Delphi XE2 Professional
 
#13

Re: SystemUtilities V 1.0

  Alt 29. Nov 2004, 23:08
@ Christian Reber:
- das Tool minimiert sich nicht automatisch, wenn du es startet bzw. es ist nicht vorgesehen
- kann das sein, dass du den Nachrichtendienst ausgeschaltet hast, denn damit ist der Senden Button deaktiviert

Die anderen Sachen schaue ich mir an und werde darüber nachdenken.


@Leuselator:

Bei mir funzt das nicht. Folgenden Code habe ich benutzt.
Delphi-Quellcode:
procedure Tfrm_main.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 if Key = 13 then
 begin
   if Sender = edt_dezimal then MessageDlg('Dezimal', mtInformation, [mbOK], 0)
   else
     if Sender = edt_roemisch then MessageDlg('Römisch', mtInformation, [mbOK], 0)
     else
       if Sender = edt_hex then MessageDlg('Hex', mtInformation, [mbOK], 0)
       else
         if Sender = edt_binaer then MessageDlg('Binär', mtInformation, [mbOK], 0);
 end;
end;
Die Editfelder sind TLableEdit Komponenten. Wenn ich dann in dem Tab bin, eine Zahl in edt_dezimal eingabe und dann ENTER drücke passiert nicht. Warum?
  Mit Zitat antworten Zitat